* lisp/replace.el (occur-engine): Count matches in empty lines.

(Bug#22062)

diff --git a/lisp/replace.el b/lisp/replace.el
index 21a830da9caf30ed7bd2a76911219da6a7de6d9e..54b3a71bda29e0ba820e0e59d8f223abd0738a2d 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1577,6 +1577,9 @@ See also `multi-occur'."
                    ;; Highlight the matches
                    (let ((len (length curstring))
                          (start 0))
+                     ;; Count empty lines that don't use next loop (Bug#22062).
+                     (when (zerop len)
+                       (setq matches (1+ matches)))
                      (while (and (< start len)
                                  (string-match regexp curstring start))
                        (setq matches (1+ matches))